home *** CD-ROM | disk | FTP | other *** search
/ infoROM 17,000 Product Descriptions for Business / infoROM Product Descriptions for Business - ESX Interactive.ISO / argdemos / autofold / afdemo.scr < prev    next >
Encoding:
Text File  |  1990-01-09  |  4.8 KB  |  236 lines
  1. BLIPMODE OFF
  2. setvar highlight 0
  3. view r 1
  4. layer s text on text,2
  5.  
  6. TEXT S ITALICt -9.5,1.787 .75 0 Introducing.....
  7. insert af-logo -3.25,-2.656 .03125 .03125 0
  8. scale l  @ 2
  9. scale l  @ 2
  10. scale l  @ 2
  11. scale l  @ 2
  12. scale l  @ 2
  13. scale l  @ 2
  14. insert afl2 -6.094,-6.969 1.28 1.28 0
  15. insert afl1 .813,-7 1.28 1.28 0
  16. text s romand c -3,-8.062 .25 0 for AutoCAD Release 10
  17. text c -3,-9 .5 0 %%uFrom Formed to Flat in Seconds!
  18. delay 5000
  19. erase l
  20.  
  21. erase l
  22.  
  23. erase l
  24.  
  25. erase l
  26.  
  27. text -10.2,-7.5 .31 0 AutoFold creates flat blank layouts from three dimensional
  28.   formed views with automatic compensation for bend allowance
  29.   Written in AutoLisp, AutoFold gives the user full interactive
  30.   control over the unfolding process.
  31. delay 5000
  32. erase l
  33.  
  34. erase l
  35.  
  36. erase l
  37.  
  38. erase l
  39.  
  40. text -10.2,-7.5 .31 0 The AutoFold Advanced module converts 2D flat blanks into
  41.   3-dimensional models.
  42. delay 5000
  43. erase l
  44.  
  45. erase l
  46.  
  47. erase w -100,-100 100,100
  48.  
  49. layer s 3 off text,2
  50.  
  51. vslide \afdemo\f-to-f
  52. delay 3000
  53. color cyan
  54. pline 15.75,-1.313 14.125,-1.312 14.125,-1.875 13.5,-1 14.125,-0.187
  55. 14.125,-0.687 c
  56. text c 13.937,-4.687 0.75 0 %%uor from Flat to Formed!
  57. delay 5000
  58. erase l
  59.  
  60. erase l
  61.  
  62. layer s text2 off 3
  63.  
  64. text -10.313,1.688 .3 0 %%uAutoFold Features Include:
  65. text -10.25,1.000 .3 0 -Written in AutoLisp. Works right inside AutoCAD.
  66. delay 1000
  67. text -10.25,0.062 .3 0 -Supports all AutoCAD entity types.
  68. delay 1000
  69. text -10.25,-0.812 .3 0 -Handles bends of any angle or orientation.
  70. delay 1000
  71. text -10.25,-1.750 .3 0 -Allows bends of different radii on the same part.
  72. delay 1000
  73. text -10.25,-2.688 .3 0 -User input for material thickness, bend radius and K-factor.
  74. delay 1000
  75. text -10.25,-3.625 .3 0 -Bend allowance may be input by the user or calculated using
  76.     standard formula.
  77. delay 1000
  78. text -10.25,-5.000 .3 0 -User may input either inside or outside part geometry.
  79. delay 1000
  80. text -10.25,-5.937 .3 0 -Bends may be defined either by arcs or by sharp corners.
  81. delay 1000
  82. text -10.25,-6.875 .3 0 -Formed view may be saved before unfolding.
  83. delay 1000
  84. text -10.25,-7.812 .3 0 -Interface to NC/CNC via AutoLisp or DXF.
  85. delay 1000
  86. text -10.25,-8.750 .29 0 -Easy to use. Commands are selected from a pull down menu.
  87. delay 10000
  88. vslide \afdemo\afpd-1
  89. delay 3000
  90. vslide \afdemo\afpd-2
  91. delay 10000
  92. vslide \afdemo\af-1
  93. delay 5000
  94. vslide \afdemo\af-2
  95. delay 3000
  96. vslide \afdemo\af-3
  97. delay 3000
  98. vslide \afdemo\af-4
  99. delay 3000
  100. vslide \afdemo\af-5
  101. delay 3000
  102. vslide \afdemo\af-6
  103. delay 3000
  104. vslide \afdemo\af-7
  105. delay 3000
  106. vslide \afdemo\arcs-1
  107. delay 5000
  108. vslide \afdemo\arcs-2
  109. delay 3000
  110. vslide \afdemo\arcs-3
  111. delay 3000
  112. vslide \afdemo\arcs-4
  113. delay 3000
  114. vslide \afdemo\arcs-5
  115. delay 3000
  116. vslide \afdemo\arcs-6
  117. delay 3000
  118. vslide \afdemo\notch-1
  119. delay 5000
  120. vslide \afdemo\notch-2
  121. delay 3000
  122. vslide \afdemo\notch-3
  123. delay 3000
  124. vslide \afdemo\notch-4
  125. delay 2000
  126. vslide \afdemo\notch-5
  127. delay 3000
  128. vslide \afdemo\notch-6
  129. delay 3000
  130. vslide \afdemo\adv-1
  131. delay 5000
  132. vslide \afdemo\adv-2
  133. delay 3000
  134. vslide \afdemo\adv-3
  135. delay 3000
  136. vslide \afdemo\adv-4
  137. delay 3000
  138. vslide \afdemo\adv-5
  139. delay 3000
  140. layer s 0 on 0 off text2
  141.  
  142. UCS W
  143. UCS V
  144. text s romand -10,1.5 .5 0 Now let's see how AutoFold works.
  145. delay 5000
  146. erase l
  147.  
  148. text -10,2 .35 0 First enter the values for material thickness, bend
  149.   radius and K-factor.  Or if desired, you may simply 
  150.   enter a pre-determined bend allowance or bend 
  151.   compensation.
  152. delay 5000
  153. erase l
  154.  
  155. erase l
  156.  
  157. erase l
  158.  
  159. erase l
  160.  
  161. text -10,2 .35 0 We will first unfold the top and side of the part.
  162.   To begin, select two points on the fold line.
  163. setvar pdmode 3
  164. setvar pdsize .4
  165. delay 1000
  166. point -4.892,-5.985,7.053
  167. delay 1000
  168. point -.649,-3.24,3.818
  169. delay 5000
  170. erase l
  171.  
  172. erase l
  173.  
  174. erase l
  175.  
  176. erase l
  177.  
  178. text -10,2 .35 0 Next select another point on the plane you're folding
  179.   into.
  180. point 3.594,-5.985,7.053
  181. delay 5000
  182. text -10,1.0 .35 0 Then select a point on the plane you're unfolding.
  183. point -4.892,-2.935,9.641
  184. delay 5000
  185. erase l
  186.  
  187. erase l
  188.  
  189. erase l
  190.  
  191. erase l
  192.  
  193. erase l
  194.  
  195. text -10,2 .35 0 Select the objects and watch AutoFold unfold the part.
  196. UCS 3P -4.892,-5.985,7.053 -.649,-3.24,3.818 3.594,-5.985,7.053
  197. UCS Y 90
  198. UCS S 1
  199. UCS W
  200. UCS V
  201. SELECT
  202. W -5.366,-5.406,0 -1.494,-.441,0
  203. W 2.694,-2.478,0 -1.608,.219,0
  204. -2.469,-1.359,0 -.605,-3.827,0 -4.878,-4.66,0 -.662,-2.019,0
  205.  
  206. (setq ss1 (ssget "P"))
  207. UCS R 1
  208. ROTATE P  0,0 -90
  209. erase l
  210.  
  211. ucs w
  212. ucs v
  213. text -10,2 .35 0 And compensate for bend allowance!
  214. delay 1000
  215. erase l
  216.  
  217. ucs r 1
  218. MOVE !ss1  0,0 0,.15
  219. delay 1000
  220. UCS W
  221. UCS V
  222. CHPROP -1.185,-3.587,0  LT DASHED
  223.  
  224. delay 1000
  225. UCS R 1
  226. move p  0,0 0,.075
  227. delay 5000
  228. UCS W
  229. UCS V
  230. text -10,1.8 .30 0 From here, repeat the process until all bends are flattened.
  231. delay 5000
  232. vslide \afdemo\co-info
  233. delay 10000
  234. quit y
  235. 0
  236.